/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Text Case / Case- SmallCaps

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 43 61 73 65 2d 20 | 53 6d 61 6c 6c 43 61 70 |..Case- |SmallCap|
|00000010| 73 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 47 50 41 53 43 50 | 47 01 00 00 00 00 00 00 |.SGPASCP|G.......|
|00000050| 00 00 00 00 00 03 00 00 | 00 03 12 a6 58 53 80 a6 |........|....XS..|
|00000060| 58 53 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |XS......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b2 7d 00 00 |........|.....}..|
|00000080| 6f 6e 20 73 74 61 72 74 | 75 70 0d 67 6c 6f 62 61 |on start|up.globa|
|00000090| 6c 20 62 61 69 6c 6f 75 | 74 0d 0d 63 68 65 63 6b |l bailou|t..check|
|000000a0| 54 65 78 74 54 6f 6f 6c | 49 73 4f 6e 0d 69 66 20 |TextTool|IsOn.if |
|000000b0| 62 61 69 6c 6f 75 74 20 | 3d 20 66 61 6c 73 65 20 |bailout |= false |
|000000c0| 74 68 65 6e 0d 73 65 74 | 20 74 68 65 20 74 65 78 |then.set| the tex|
|000000d0| 74 46 61 63 65 20 74 6f | 20 73 6d 61 6c 6c 43 61 |tFace to| smallCa|
|000000e0| 70 73 20 20 20 0d 65 6e | 64 20 69 66 0d 0d 65 6e |ps   .en|d if..en|
|000000f0| 64 20 73 74 61 72 74 75 | 70 0d 0d 6f 6e 20 63 68 |d startu|p..on ch|
|00000100| 65 63 6b 54 65 78 74 54 | 6f 6f 6c 49 73 4f 6e 0d |eckTextT|oolIsOn.|
|00000110| 67 6c 6f 62 61 6c 20 62 | 61 69 6c 6f 75 74 0d 74 |global b|ailout.t|
|00000120| 72 61 63 65 20 6f 6e 0d | 70 75 74 20 22 74 72 75 |race on.|put "tru|
|00000130| 65 22 20 69 6e 74 6f 20 | 62 61 69 6c 6f 75 74 0d |e" into |bailout.|
|00000140| 0d 69 66 20 74 6f 6f 6c | 6d 6f 64 65 20 3c 3e 20 |.if tool|mode <> |
|00000150| 22 74 65 78 74 54 6f 6f | 6c 22 20 74 68 65 6e 0d |"textToo|l" then.|
|00000160| 61 6e 73 77 65 72 20 22 | 54 68 65 20 54 65 78 74 |answer "|The Text|
|00000170| 54 6f 6f 6c 20 6d 75 73 | 74 20 62 65 20 74 75 72 |Tool mus|t be tur|
|00000180| 6e 65 64 20 6f 6e 2e 22 | 0d 65 6c 73 65 20 69 66 |ned on."|.else if|
|00000190| 20 63 75 72 72 65 6e 74 | 53 74 6f 72 79 4e 75 6d | current|StoryNum|
|000001a0| 62 65 72 28 29 20 3d 20 | 22 6e 6f 6e 65 22 20 74 |ber() = |"none" t|
|000001b0| 68 65 6e 0d 61 6e 73 77 | 65 72 20 22 54 65 78 74 |hen.answ|er "Text|
|000001c0| 20 6d 75 73 74 20 62 65 | 20 73 65 6c 65 63 74 65 | must be| selecte|
|000001d0| 64 20 69 6e 20 61 20 73 | 74 6f 72 79 2e 22 0d 65 |d in a s|tory.".e|
|000001e0| 6c 73 65 20 69 66 20 69 | 74 65 6d 20 32 20 6f 66 |lse if i|tem 2 of|
|000001f0| 20 74 65 78 74 63 75 72 | 73 6f 72 20 3d 20 30 20 | textcur|sor = 0 |
|00000200| 74 68 65 6e 0d 61 6e 73 | 77 65 72 20 22 54 65 78 |then.ans|wer "Tex|
|00000210| 74 20 6d 75 73 74 20 62 | 65 20 73 65 6c 65 63 74 |t must b|e select|
|00000220| 65 64 20 69 6e 20 61 20 | 73 74 6f 72 79 2e 22 0d |ed in a |story.".|
|00000230| 65 6c 73 65 0d 70 75 74 | 20 22 66 61 6c 73 65 22 |else.put| "false"|
|00000240| 20 69 6e 74 6f 20 62 61 | 69 6c 6f 75 74 0d 65 6e | into ba|ilout.en|
|00000250| 64 20 69 66 0d 0d 65 6e | 64 20 63 68 65 63 6b 54 |d if..en|d checkT|
|00000260| 65 78 74 54 6f 6f 6c 49 | 73 4f 6e 0d 0d 6f 6e 20 |extToolI|sOn..on |
|00000270| 68 65 6c 70 0d 0d 70 75 | 74 20 20 64 69 61 6c 6f |help..pu|t  dialo|
|00000280| 67 20 28 70 72 65 6c 6f | 61 64 2c 20 31 32 38 29 |g (prelo|ad, 128)|
|00000290| 20 69 6e 74 6f 20 74 68 | 65 64 69 61 6c 6f 67 0d | into th|edialog.|
|000002a0| 70 75 74 20 22 2d 2d 2d | 61 5c 30 22 20 69 6e 74 |put "---|a\0" int|
|000002b0| 6f 20 69 74 65 6d 32 0d | 70 75 74 20 22 2d 2d 2d |o item2.|put "---|
|000002c0| 61 5c 31 22 20 69 6e 74 | 6f 20 69 74 65 6d 33 0d |a\1" int|o item3.|
|000002d0| 70 75 74 20 22 2d 2d 2d | 61 5c 32 22 20 69 6e 74 |put "---|a\2" int|
|000002e0| 6f 20 69 74 65 6d 34 0d | 0d 72 65 70 65 61 74 20 |o item4.|.repeat |
|000002f0| 66 6f 72 65 76 65 72 0d | 67 65 74 20 64 69 61 6c |forever.|get dial|
|00000300| 6f 67 28 64 69 73 70 6c | 61 79 2c 20 74 68 65 64 |og(displ|ay, thed|
|00000310| 69 61 6c 6f 67 29 0d 69 | 66 20 28 69 74 20 3d 20 |ialog).i|f (it = |
|00000320| 31 29 20 74 68 65 6e 20 | 65 78 69 74 20 72 65 70 |1) then |exit rep|
|00000330| 65 61 74 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 67 |eat.end |repeat.g|
|00000340| 65 74 20 64 69 61 6c 6f | 67 28 64 69 73 70 6f 73 |et dialo|g(dispos|
|00000350| 65 2c 20 74 68 65 64 69 | 61 6c 6f 67 29 0d 0d 65 |e, thedi|alog)..e|
|00000360| 6e 64 20 68 65 6c 70 0d | 0d 00 00 04 00 09 00 02 |nd help.|........|
|00000370| 01 6f 00 00 00 00 00 00 | 00 3c 00 14 01 42 01 ec |.o......|.<...B..|
|00000380| 00 00 01 00 00 00 02 c7 | 00 00 01 c7 00 00 00 4b |........|.......K|
|00000390| 00 00 1b 1b 0c 53 68 61 | 72 65 64 53 63 72 69 70 |.....Sha|redScrip|
|000003a0| 74 1b 02 00 00 00 53 47 | 50 41 53 43 50 47 01 00 |t.....SG|PASCPG..|
|000003b0| 0f 43 61 73 65 2d 20 53 | 6d 61 6c 6c 43 61 70 73 |.Case- S|mallCaps|
|000003c0| 02 00 00 00 53 47 50 41 | 53 43 50 47 01 00 ff ff |....SGPA|SCPG....|
|000003d0| 00 00 53 47 50 41 53 43 | 50 47 01 00 ff ff ff ff |..SGPASC|PG......|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 a6 58 53 80 00 00 | 03 00 00 00 03 12 00 00 |...XS...|........|
|00000400| 00 00 00 00 00 00 00 00 | 15 00 00 00 1b 1b 0f 53 |........|.......S|
|00000410| 68 61 72 65 64 53 63 72 | 69 70 74 2e 63 61 02 00 |haredScr|ipt.ca..|
|00000420| 00 00 53 47 50 41 53 43 | 50 47 01 00 ff ff ff ff |..SGPASC|PG......|
|00000430| 00 00 00 00 2f ca 00 00 | 00 00 04 60 00 00 0c 00 |..../...|...`....|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 a5 a0 87 e4 a5 ee |........|........|
|00000450| 53 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Sl......|........|
|00000460| 00 00 00 00 00 00 00 00 | 18 cd 00 01 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 15 00 28 00 28 | 01 2a 01 a8 00 01 00 00 |.....(.(|.*......|
|00000490| 01 00 00 00 00 00 00 80 | 00 00 00 01 aa 00 07 00 |........|........|
|000004a0| 00 00 00 00 ea 01 27 00 | fe 01 73 04 02 4f 4b 00 |......'.|..s..OK.|
|000004b0| 00 00 00 00 46 00 04 00 | dc 01 76 80 00 00 00 00 |....F...|..v.....|
|000004c0| 00 00 14 00 04 00 1c 01 | 7c 80 00 00 00 00 00 00 |........||.......|
|000004d0| 34 00 04 00 3c 01 76 80 | 00 00 00 00 00 00 03 00 |4...<.v.|........|
|000004e0| 04 00 13 00 b7 88 13 48 | 65 6c 70 20 77 69 74 68 |.......H|elp with|
|000004f0| 20 41 64 64 69 74 69 6f | 6e 73 6f 00 00 00 00 00 | Additio|nso.....|
|00000500| 22 00 04 00 32 00 a2 88 | 0a 53 6d 61 6c 6c 20 43 |"...2...|.Small C|
|00000510| 61 70 73 00 00 00 00 00 | 4c 00 09 00 6f 01 74 88 |aps.....|L...o.t.|
|00000520| 3f 54 68 69 73 20 77 69 | 6c 6c 20 63 68 61 6e 67 |?This wi|ll chang|
|00000530| 65 20 74 68 65 20 63 61 | 73 65 20 6f 66 20 61 6e |e the ca|se of an|
|00000540| 79 20 73 65 6c 65 63 74 | 65 64 20 74 65 78 74 20 |y select|ed text |
|00000550| 74 6f 20 53 6d 61 6c 6c | 20 43 61 70 73 2e 20 20 |to Small| Caps.  |
|00000560| 00 00 00 00 00 00 74 00 | 09 00 d8 01 73 88 d7 53 |......t.|....s..S|
|00000570| 6d 61 6c 6c 20 43 61 70 | 73 20 63 68 61 6e 67 65 |mall Cap|s change|
|00000580| 73 20 74 68 65 20 63 61 | 73 65 20 6f 66 20 61 6e |s the ca|se of an|
|00000590| 79 20 73 65 6c 65 63 74 | 65 64 20 6c 6f 77 65 72 |y select|ed lower|
|000005a0| 20 63 61 73 65 20 6c 65 | 74 74 65 72 73 20 74 6f | case le|tters to|
|000005b0| 20 75 70 70 65 72 20 63 | 61 73 65 20 61 6e 64 20 | upper c|ase and |
|000005c0| 63 68 61 6e 67 65 73 20 | 74 68 65 69 72 20 66 6f |changes |their fo|
|000005d0| 6e 74 20 73 69 7a 65 20 | 74 6f 20 37 30 25 20 6f |nt size |to 70% o|
|000005e0| 66 20 74 68 65 69 72 20 | 6f 72 69 67 69 6e 61 6c |f their |original|
|000005f0| 20 73 69 7a 65 2e 20 55 | 70 70 65 72 20 63 61 73 | size. U|pper cas|
|00000600| 65 20 6c 65 74 74 65 72 | 73 20 61 72 65 20 75 6e |e letter|s are un|
|00000610| 63 68 61 6e 67 65 64 2e | 0d 0d 49 74 20 69 73 20 |changed.|..It is |
|00000620| 77 69 64 65 6c 79 20 75 | 73 65 64 20 66 6f 72 20 |widely u|sed for |
|00000630| 74 69 74 6c 65 73 20 61 | 6e 64 20 68 65 61 64 6c |titles a|nd headl|
|00000640| 69 6e 65 73 2e 0d 00 00 | 00 01 00 00 00 02 c7 00 |ines....|........|
|00000650| 00 01 c7 00 00 00 4b 00 | 20 41 a8 09 30 00 00 00 |......K.| A..0...|
|00000660| 1c 00 46 00 01 44 4c 4f | 47 00 00 00 12 44 49 54 |..F..DLO|G....DIT|
|00000670| 4c 00 00 00 1e 00 80 ff | ff 20 00 00 00 00 00 00 |L.......|. ......|
|00000680| 00 00 80 00 00 20 00 00 | 19 00 20 5a c0 04 48 65 |..... ..|.. Z..He|
|00000690| 6c 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lp......|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+